Compare (==) a character string and a varying string
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | string_a | |||
type(varying_string), | intent(in) | :: | string_b |
elemental function op_eq_CH_VS (string_a, string_b) result (op_eq) character(LEN=*), intent(in) :: string_a type(varying_string), intent(in) :: string_b logical :: op_eq op_eq = string_a == char(string_b) ! Finish return end function op_eq_CH_VS